-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2777
-- card count: 25
-- first card id: 2161
-- list block id: 7377
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 60992 bytes
-- stack block size: 4608 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  global idlerExit
  hide msg
  hide menuBar
  push recent card
  pop card into idlerExit
  showYerStuff
end openStack

on domenu whichItem
  if whichItem = "Home" then homeBoy
  pass domenu
end domenu

on mouseUp
  showYerStuff
end mouseUp

on showYerStuff
  hide msg
  hide menuBar
  visual dissolve fast
  go first
  set cursor to 4
  set lockscreen to true
  show all cards
  set lockscreen to false
  set cursor to -1
  repeat
    repeat with i = 1 to 3
      visual dissolve
      go to card i + 1
      wait i + 1 seconds
      back2square1
    end repeat
    repeat for 2
      visual dissolve fast
      go next
      wait 30 ticks
      back2square1
    end repeat
    repeat for 2
      visual dissolve fast
      go to card 7
      visual dissolve fast
      go to card 8
      back2square1
    end repeat
    repeat for 4
      visual dissolve fast
      go to card 9
      visual dissolve fast
      go to card 10
      back2square1
    end repeat
    repeat for 2
      visual dissolve fast
      go to card 7
      visual dissolve fast
      go to card 8
    end repeat
    repeat for 2
      visual dissolve fast
      go to card 11
      visual dissolve fast
      go to card 12
      back2square1
    end repeat
    repeat for 2
      visual dissolve fast
      go to card 13
      visual dissolve fast
      go to card 14
      back2square1
    end repeat
    visual dissolve fast
    go to card 15
    back2square1
    wait 30 ticks
    repeat with i = 16 to 21
      visual dissolve fast
      go to card i
      back2square1
    end repeat
    repeat for 6
      visual dissolve fast
      go to card 22
      visual dissolve fast
      go to card 23
      back2square1
    end repeat
    repeat for 2
      visual dissolve fast
      go to card 24
      visual dissolve fast
      go to card 25
      back2square1
    end repeat
    visual dissolve
    go first
    wait 1 seconds
    back2square1
  end repeat
end showYerStuff

on homeBoy
  go first
  if field "Homer" = empty or the shiftKey is down then
    answer "Install this stack's button on Home Card?" with "Yes" or "No"
    if IT = "Yes" then
      set cursor to 4
      put 1 into field "Homer"
      set lockscreen to true
      set visible of bkgnd btn "A System" to true
      choose button tool
      click at loc of bkgnd btn "A System"
      domenu "Copy Button"
      set visible of bkgnd btn "A System" to false
      choose browse tool
      set lockscreen to false
      visual dissolve
      go home
      put "Click where you want your Idler button."
      set cursor to 2
      repeat until the mouse is down
      end repeat
      set cursor to 4
      put the mouseloc into btnLoc
      set lockscreen to true
      domenu "Paste Button"
      set loc of card btn "A System" to btnLoc
      choose browse tool
      set lockscreen to false
      exit homeBoy
    else
      visual dissolve fast
      go home
    end if
  end if
end homeBoy

on back2square1
  global idlerExit
  if the mouse is down then
    if the commandKey is down or the shiftKey is down then
      visual dissolve fast
      go first
      exit to hyperCard
    else
      visual dissolve fast
      go first
      visual iris close
      go to idlerExit
      exit to hyperCard
    end if
  end if
end back2square1